home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test5.p < prev    next >
Text File  |  1990-02-23  |  195b  |  14 lines
  1. program main(input,output);
  2. const
  3.   txt= "- i :";
  4. var
  5.   i,j: integer;
  6. procedure schreib(it: integer;t: string);
  7. Begin
  8.   writeln(t,it);
  9. end;
  10. Begin
  11.   for i := 0 to 10+1
  12.   do schreib(i+1,txt);
  13. end.
  14.